home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cocktail
/
Cocktail CD.iso
/
scripts
/
select.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-10-06
|
1KB
|
63 lines
/* Cocktail */
OPTIONS RESULTS
ADDRESS DataBase
BoxFill 110 70 410 150 0
Box 110 70 410 150 1000
TEXT 115 80 1 " Es können verschiedene Suchmuster"
TEXT 115 90 1 " (wild cards) benutzt werden !"
TEXT 115 100 1 ""
TEXT 115 110 1 "#? Entspricht beliebigen Text."
TEXT 115 120 1 ""
TEXT 115 130 3 "Rum#?"
TEXT 115 140 2 " Markiert alle Datensätze, die mit "
TEXT 115 150 2 " 'Rum' beginnen."
TEXT 115 160 3 "#?Rum"
TEXT 115 170 2 " Markiert alle Datensätze, die mit"
TEXT 115 180 2 " 'Rum' enden."
TEXT 115 190 3 "#?Rum#?"
TEXT 115 200 2 " Markiert alle Datensätze, wo das"
TEXT 115 210 2 " Wort 'Rum' vorkommt."
RequestText "suchbegriff eingeben"
if RC=5 then call end
such = RESULT
if such="" then call end
MarkRange $F3 Such
a = RESULT
MarkRange $F5 Such
b = RESULT
MarkRange $F7 Such
c = RESULT
MarkRange $F9 Such
d = RESULT
MarkRange $F11 Such
e = RESULT
MarkRange $F13 Such
f = RESULT
MarkRange $F15 Such
g = RESULT
MarkRange $F17 Such
h = RESULT
MarkRange $F19 Such
i = RESULT
MarkRange $F21 Such
j = RESULT
zus = a + b + c + d + e + f + g + h + i + j
Show new
Request "_OK" " Es wurden" zus "Cocktails gefunden"
if zus=0 then EXIT
Show Marked
Exit
end:
Show new
exit
return